matteosiviero.it

 

Questo database è un semplice esempio di come si possono registrare e gestire i reclami in una azienda.
Le operazioni necessarie per lo sviluppo sono state sintetizzate perche' le tecniche sono le medesime che avrete visto nel Come Fare le Azioni Correttive.
Il database d'esempio si apre con il pannello comandi principale (Fig.1)

Fig.1

Cliccando su Reclami - Elenco si apre la maschera in Fig.2 con l'elenco che riassume tutti i reclami registrati.

Fig. 2

Cliccando sul tasto a fianco a destra (...) e' possibile aprire la maschera per la visualizzazione dei dettagli dei reclami (Fig.3) o per inserirne di nuovi.

Fig.3

Questa maschera permette la registrazione dei reclami aziendali che vengono analizzati, vengono elencati i pezzi difettosi e si procede per risolvere il problema.
Cliccando su Stampa è possibile ottenere un report del reclamo (Fig.4)

Fig.4

Cliccando su Tipo registrazione si apre una maschera in cui sono registrati i tipi di reclami (Fig.5)

Fig.5

Cliccando su Prodotti/Servizi si apre una maschera in cui sono memorizzati i prodotti e/o i servizi che fornisce l'azienda (Fig.6)

Fig.6

Scegliendo Decisioni si apre la maschera sotto riportata (Fig.7) in cui sono inserite le decisioni da prendere sui pezzi difettosi.

Fig.7

Infine, scegliendo Nominativi si apre una maschera in cui sono presenti i nomi dei responsabili addetti ai reclami (Fig.8)

Fig.8

Come vedete non abbiamo spiegato come realizzare le maschere perche' sono argomenti già trattati in altri come fare. Diamo pero' qualche spiegazione sul tasto STAMPA.
Il tasto STAMPA e' un oggetto che quando viene cliccato esegue un semplice programma in Visual Basic che apre il report del reclamo. Il programma deve aprire solo quel report.
Come fa?
Se vediamo l'evento Su clik del tasto ci appare il seguente programma (uno shock per i non esperti):

Riga Visual Basic	Commento
Private Sub Comando11_Click()	Dice che questa routine e' del Comando11 (il tastino)
On Error GoTo Errore	Questa riga fa si che in caso di errore il programma vada alla riga Errore:
Dim stDocName As String, Filtro As String	Riga per dichiarare le variabili utilizzate
Filtro = "[RC_ID]=" & Me.RC_ID	La variabile Filtro assume un valore che dice che quando aprirò il report dei reclami dovro' visualizzare il reclamo uguale al valore ID della maschera aperta
stDocName = "RC_Report_Testa"	Definisce il nome del report da aprire
DoCmd.OpenReport stDocName, acViewPreview, , Filtro	Apre il report con il filtro sopra impostato
Errore:	Riga raggiunta in caso di errore
Exit Sub	Uscita dalla routine
End Sub	Fine della routine

Ritorna all'elenco